function Link_siqr_delay=LinkSiqrDelay(file_name, sample_size)
  Link_siqr_delay = [];
  f_id = fopen(file_name);
  while ~feof(f_id)
    line = fgetl (f_id);
    delay_records = str2num (line);
    delay_records = delay_records(find(delay_records >0));
    [m,n] = size(delay_records);
    columns = 3:1:n; % remove the sender id
    [x,y]=size(columns); % 1, 5679
    %Link_delay = [Link_delay, delay_records];
   
    if y ~= 0
        %selected_columns = ceil(rand(1,sample_size) * y);
        Link_siqr_delay= [Link_siqr_delay;  delay_records(1,1) SIQR(delay_records (columns))];
    end
  
  end
  fclose(f_id);

end
